home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 124 / Tiger_Disk_124_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 2.demo v2+.64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  133 lines
  1. 20 rem *** basic v2+ demo 2 ***
  2. 30 rem *  by mark marzinzik   *
  3. 40 rem ************************
  4. 41 data"[194][193][211][201][195] [214]2+ kann aber noch mehr als nur","hochaufloesende [199]rafik."
  5. 42 data"[200]ier sehen [211]ie z.[194]. die [193]nwendung der"
  6. 43 data"[194]efehle #[205][193][210][199][201][206], #[211][195][210][197][197][206] und #[208][197][206], die"
  7. 44 data"eine [193]enderung der [198]arben bewirken."
  8. 45 data"[193]uf [203]leinschrift wurde mit #[204][207][215][197][210] umge-","schaltet."
  9. 46 data"[196]er [212]astaturpieps, den [211]ie auch fuer "
  10. 47 data"eigene [208]rogramme verwenden koennen,wird"
  11. 48 data"mit #[214][207][204][213][205][197], #[197][206][214][197][204][207][208][197] und #[214][207][201][195][197] er-","zeugt."
  12. 49 data"[196]er [194]efehl #[203][197][217][208][210][197][211][211] wartet nun auf ","einen [212]astendruck."
  13. 57 dim a$(13)
  14. 58 goto 500
  15. 59 :
  16. 60 rem ** musikstueck
  17. 61 dim w(12),n$(12),f(200)
  18. 70 data34334,c,36377,c#,38539,d,40831,d#,43258,e,45831,f
  19. 80 data48557,f#,51444,g,54502,g#,57743,a,61177,a#,64815,b
  20. 90 :
  21. 100 datab,4,4,d,5,4,c,5,8,st,0,1,b,4,4,d,5,4,a,4,8,st,0,1,b,4,4,d,5,4,c,5,4
  22. 110 datab,4,2,c,5,2,d,5,4,a,4,4,g,4,8,st,0,2,b,4,4,g,4,4,c,5,8,st,0,1,b,4,4
  23. 120 datag,4,4,a,4,8,st,0,1,b,4,4,d,5,4,c,5,8,st,0,1,b,4,2,c,5,2,d,5,4,a,4,4
  24. 130 datag,4,10,q,0
  25. 140 :
  26. 250 for i=1 to 12:read w(i),n$(i):next
  27. 251 fori=1to24:poke54272+i,0:next
  28. 260 x=1
  29. 270 read n$,n:if n$="q" then 345
  30. 280 if n$="st" then f=0:goto 320
  31. 290 for i=1 to 12:if n$=n$(i) then zw=i:i=12
  32. 300 next i
  33. 310 f=w(zw)/(2^(7-n))
  34. 320 read y
  35. 330 for i=1 to y
  36. 340 f(x)=f:x=x+1:nexti:goto270
  37. 345 goto 410
  38. 350 #envelope,1,2,2,15,15
  39. 360 #volume,15
  40. 370 for i=1 to x-1
  41. 380 #voice,1,f(i),1,0
  42. 390 for j=1 to 10:next j:next i
  43. 400 return
  44. 410 for op=1 to 3:gosub350:nextop
  45. 420 #volume,0:return
  46. 430 :
  47. 500 rem ** beginn
  48. 501 #pen,1:#screen,0
  49. 510 printchr$(147):#lower:#place,3,6
  50. 511 print"[194][160][193][160][211][160][201][160][195][160][160][214] 2 +  [196] e m o  2"
  51. 512 #place,4,6:print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  52. 513 #place,7,0
  53. 520 for i=1 to 13:reada$(i)
  54. 530 for j=1 to len(a$(i))
  55. 540 printmid$(a$(i),j,1);
  56. 545 if j/3<>int(j/3)then576
  57. 550 #volume,15
  58. 560 #envelope,1,2,7,7,15
  59. 570 #voice,1,45000,1,10
  60. 571 p=p+1:ifp=16thenp=0
  61. 572 ifp=0thenp=1
  62. 574 #pen,p
  63. 576 nextj:print
  64. 579 #margin,int(rnd(0)*16)
  65. 580 next i
  66. 590 gosub600:goto620
  67. 600 #place,22,16:print"<taste>":#keypress:return
  68. 620 rem ** musik
  69. 630 printchr$(147):#screen,0:#margin,13:#pen,13:#place,3,0:#upper
  70. 640 print"basic v2+ ist auch sehr musikalisch."
  71. 650 print"hoeren sie selbst !"
  72. 660 gosub 60
  73. 670 print:print"die melodie stammt aus dem alten eng-"
  74. 680 print"lischen lied "chr$(34)"shepherd's hey"chr$(34)"."
  75. 690 gosub600
  76. 700 rem ** uhr
  77. 701 #screen,1:#margin,1:#pen,0:printchr$(147):#place,1,0
  78. 702 print"diese uhr laeuft mit #place,#envelope,":print"#volume und #voice."
  79. 710 #place,6,13:print"[213][201]         [213][201]"
  80. 711 printspc(13)"[202][219][192][192][192][192][192][192][192][192][192][219][203]":printspc(14)"[221]   .0.   [221]"
  81. 712 printspc(14)"[221] .     . [221]"
  82. 713 printspc(14)"[221].       .[221]"
  83. 714 printspc(14)"[221]45     15[221]"
  84. 715 printspc(14)"[221].       .[221]"
  85. 716 printspc(14)"[221] .     . [221]"
  86. 717 printspc(14)"[221]   .3.   [221]"
  87. 718 printspc(14)"[221][162][185][175][164]0[164][175][185][162][221]"
  88. 719 printspc(13)"[213][219][192][192][192][192][192][192][192][192][192][219][201]"
  89. 720 printspc(13)"[202][203]         [202][203]"
  90. 750 #envelope,1,0,0,15,0
  91. 751 #envelope,2,0,0,7,11:#envelope,3,0,0,11,4
  92. 760 #volume,15:goto1010
  93. 770 #voice,1,20480,1,15
  94. 780 for i=1 to 3:next:fori=4to18step7:poke54272+i,16:next
  95. 790 for i=1 to 300:next
  96. 800 #voice,1,15360,1,15
  97. 801 #voice,2,5120,1,15
  98. 802 #voice,3,10240,1,15
  99. 810 for i=1 to 3:next:fori=4to18step7:poke54272+i,16:next
  100. 820 for i=1 to 300:next
  101. 850 return
  102. 910 fori=1to100:next:fori=9to13:#place,i,17:print"     ":next
  103. 920 #place,11,19:print"[209]":return
  104. 930 fori=9to10:#place,i,19:print"[221]":next:gosub770:gosub910
  105. 940 #place,9,21:print"[206]":#place,10,20:print"[206]":gosub910
  106. 950 #place,11,20:print"[192][192]":gosub910
  107. 960 fori=12to13:#place,i,i+8:print"[205]":next:gosub910
  108. 970 fori=12to13:#place,i,19:print"[221]":next:gosub910
  109. 980 #place,12,18:print"[206]":#place,13,17:print"[206]":gosub910
  110. 990 #place,11,17:print"[192][192]":gosub910
  111. 1000 fori=9to10:#place,i,i+8:print"[205]":next:gosub910:return
  112. 1010 for s=1 to 6:gosub930:next
  113. 1020 fori=9to10:#place,i,19:print"[221]":next
  114. 1030 gosub600
  115. 1040 printchr$(147):#place,4,0
  116. 1050 #screen,6:#margin,14:#pen,1
  117. 1060 print"so, das war die vorstellung von "
  118. 1070 print"basic v2+. befehle wie #renumber, #merge";
  119. 1080 print"und #old koennen in einem demoprogramm"
  120. 1090 print"leider nicht vorgestellt werden. ich er-";
  121. 1100 print"muntere sie zum experimentieren !!!"
  122. 1110 #off
  123. 1120 print:print"in diesem moment sind uebrigens die tas-";
  124. 1130 print"ten run/stop - restore ausgeschaltet."
  125. 1140 print"druecken sie sie mal!"
  126. 1150 #place,23,12:print"weiter mit <f1>"
  127. 1151 getkp$:ifkp$=""then1151
  128. 1152 if kp$=chr$(133)then1160
  129. 1153 goto1151
  130. 1160 printchr$(147):#revive:print"nun gehen sie wieder!"
  131. 1170 print"druecken sie sie bitte,denn das programm";:print"ist nun zu ende."
  132. 1180 goto 1180
  133.